home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / mus / play / multiplsr.lha / progwinspec.gui < prev    next >
Text File  |  1992-09-14  |  3KB  |  140 lines
  1. /*
  2.  * MultiPlayer
  3.  * Copyright (C) 1992 Bryan Ford
  4.  *
  5.  * This program is free software; you can redistribute it and/or modify
  6.  * it under the terms of the GNU General Public License as published by
  7.  * the Free Software Foundation; either version 2 of the License, or
  8.  * (at your option) any later version.
  9.  *
  10.  * This program is distributed in the hope that it will be useful,
  11.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.  * GNU General Public License for more details.
  14.  *
  15.  * You should have received a copy of the GNU General Public License
  16.  * along with this program; if not, write to the Free Software
  17.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  *
  19.  * I (the author of MultiPlayer) can be contacted on the Internet at
  20.  * "bryan.ford@m.cc.utah.edu".  See "Player.doc" for other addresses.
  21.  *
  22.  * $Id: progwinspec.gui,v 4.2 92/06/21 11:12:12 BAF Exp Locker: BAF $
  23.  *
  24.  */
  25.  
  26. window xdef _progwinspec
  27.     screen import _playerscreen
  28.     title "Module Program"
  29.     screentitle _copyright
  30.     left import _progwinleft top import _progwintop
  31.     LISTVIEWIDCMP BUTTONIDCMP CLOSEWINDOW MOUSEBUTTONS REFRESHWINDOW
  32.     DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP rawkey
  33.   end
  34.  
  35. listview
  36.     export _progwinlvgad
  37.     call _gui_progwinlv
  38.     showselected null
  39.     attr _listattr
  40.     endrow minchars 35 minlines 9
  41.   end
  42.  
  43. button
  44.     label "Play"
  45.     call _gui_progwinplay
  46.   end
  47.  
  48. button
  49.     label "Current"
  50.     call _gui_progwincurrent endrow
  51.   end
  52.  
  53. button
  54.     label "Add"
  55.     call _gui_progwinadd
  56.   end
  57.  
  58. button
  59.     label "Del"
  60.     call _gui_progwindel
  61.   end
  62.  
  63. text text "Move:" end
  64.  
  65. button
  66.     label "Top"
  67.     call _gui_progwintop
  68.   end
  69.  
  70. button
  71.     label "Up"
  72.     call _gui_progwinup
  73.   end
  74.  
  75. button
  76.     label "Down"
  77.     call _gui_progwindown
  78.   end
  79.  
  80. button
  81.     label "Bot"
  82.     call _gui_progwinbottom endrow
  83.   end
  84.  
  85. button
  86.     label "Load"
  87.     call _gui_progwinload
  88.   end
  89.  
  90. button
  91.     label "Save"
  92.     call _gui_progwinsave
  93.   end
  94.  
  95. button
  96.     label "Clear"
  97.     call _gui_progwinclear
  98.   end
  99.  
  100. button
  101.     label "Sort"
  102.     call _gui_progwinsort endrow
  103.   end
  104.  
  105. button
  106.     label "Main"
  107.     call _gui_windowzoom
  108.   end
  109.  
  110. button
  111.     label "Prefs"
  112.     call _gui_prefswinopenclose
  113.   end
  114.  
  115. button
  116.     label "Settings"
  117.     call _gui_settingswinopenclose
  118.   end
  119.  
  120. button
  121.     label "Info"
  122.     call _gui_infowinopenclose endrow
  123.   end
  124.  
  125. endcap
  126.  
  127. filerequester xdef _progwinfrspec
  128.     window struct 0
  129.     save struct 8
  130.     title struct 12
  131.     ok struct 4
  132.     pattern "~(#?.info)"
  133.     donectrlf
  134.     left import progfrleft
  135.     top import progfrtop
  136.     width import progfrwidth
  137.     height import progfrheight
  138.   end
  139.  
  140.